約 2,968,051 件
https://w.atwiki.jp/davinavi/pages/87.html
音声Link
https://w.atwiki.jp/doldoldoldol/pages/371.html
リンク リンク [#link] 公式 [#ca952952] ハンゲーム [#hc2d015b] 開発者インタビューなどが度々掲載されるニュースサイト [#h12ed4fe] データ情報 [#datacom] 総合 [#c558d16f] 地図系 [#q88324c4] 冒険系 [#dataadv] 交易系 [#datamer] 造船 [#zousen] サーバ別国別 [#server] Notos [#Notos] Zephyros [#Zephyros] Euros [#Euros] Boreas [#Boreas] 掲示板 [#bbs] コミュニティ [#d232a1f6] ブログ・サイトリンク集 [#j8e07d49] アンテナ [#mc070af3] 副産物 [#h8a6ff16] その他 [#Others] 大航海時代Online関連商品 [#t9b3de33] GAMECITY(コーエー公式) [#gamecity] ソースネクスト [#sourcenext] ※個人・商会サイト宣伝目的のリンクではなく情報サイトやコミュニティー系統のサイト紹介をお願いします。 公式 大航海時代オンライン公式 オンラインマニュアル 公式掲示板 ファンワールド(公式ファンサイトリンク集) ハンゲーム 大航海時代 Online - ハンゲーム 開発者インタビューなどが度々掲載されるニュースサイト 4Gamer(4亀) - 大航海時代 Online ・ Cruz del Sur(PS3) ・ El Oriente(PS3) データ情報 総合 スキル効率・能力検証Wiki 大商戦 大航海時代データベース 大航海時代Online攻略DatabaseSystem 初心者の館 図書館の大航海時代Online アルフィリンのメモ帳 大航海時代 Online 質問スレテンプレ タラこる データサイト 地図系 D.K.K_map 大航海時代Online クリスタル商会・大航海時代Online上陸地点地図(仮) 大航海時代Online 街中NPC所在地図 交易MAP@Web 測量地図位置検索(青空商会) 冒険系 大航海時代Online採集・調達データ 大航海時代Onlineメモ(採集・探索) 最終更新07/09/07 書庫篭り 論戦デッキビルダー 交易系 調理Wiki 東奔西走 -交易のススメ-更新停止 大航海時代Online調理・釣りデータ 更新停止? 造船 大航海時代Online (特殊)造船データ Espana NDI めもりあのーと マルセイユ第四造船所 造船Wiki - 大航海時代Online -(旧造船テンプレ) サーバ別国別 Notos Notos イスパニアwiki (Notosイスパニア) えびのキバ(Notosポルトガル) +NOTOS FRANCE WIKI+(Notosフランス) NotosVenezi(Notosヴェネツィア) Notosネーデルランドwiki(Notosネーデルランド) Notos England Centre(Notosイングランド) Notosオスマントルコwiki(Notosオスマントルコ) Zephyros 大航海オンラインゼフィロスイスパニアwiki(Zephyrosイスパニア) 大航海時代ONLINE-Z-PORWiki(Zephyrosポルトガル) 大航海時代Online Z鯖ヴェネツィア(Zephyrosヴェネツィア) Zephyros Niederland Wiki(Zephyrosネーデルランド) Zephyros England Wiki(Zephyrosイングランド) Zephyros France Wiki(Zephyrosフランス) Euros Euros鯖イスパニアWiki(Eurosイスパニア) エロポル企画(wiki)(Eurosポルトガル) Wiki France d Euros (Eurosフランス) Euros Venezia(Eurosヴェネツィア) Eurosネーデルランドwiki(Eurosネーデルランド) EurosEngland(Eurosイングランド) Boreas 大航海時代online Boreasサーバ イスパニアwiki(Boreasイスパニア) 大航海時代Online ボレアス鯖ポルトガルwiki(Boreasポルトガル) 大航海時代online Boreas鯖フランスwiki(Boreasフランス) 大航海時代Online B鯖ヴェネツィア(Boreasヴェネツィア) Boreas鯖ネーデルランドwiki(Boreasネーデルランド) 大航海時代オンライン Boreas England`s Wiki(Boreasイングランド) 掲示板 大航海時代 Online総合掲示板(jbbs,通称外部板) 2ちゃんねる大航海時代関連スレ一覧 大航海時代オンラインスクリーンショット 2 コミュニティ ねとらじ@DOL mixi大航海時代コミュニティ 大航海時代Network - SNS 副官溺愛倶楽部-副官ファッション 海の上のパン屋 - スカっとゴルフ パンヤ ブログ・サイトリンク集 WIKIリンク集wiki 大航海時代online Ring 大航海時代サーチ FC2ブログランキング(大航海時代Online) 大航海時代Online TB ゲーマーズ日記ポータルサイトプレイヤーズビレッジ ファンサイトリンク&登録ネットゲームしま専科? BlogPetグループ 大航海時代Euros鯖 BlogPetグループ 大航海時代Online@Zephyros BlogPetグループ 大航海時代Online@Notos Euros-DOLblog集 Notos-DOLblog集 Zephyros-DOLblog集 Boreas-DOLblog集 アンテナ 大航海時代Online関係wikiのアンテナ エロ鯖アンテナ ノト鯖アンテナ Boreas鯖アンテナ 副産物 大航海時代Online 100の質問 大航海Onlineプレイヤーに100の質問 大航海時代占い 成分分析 on 大航海時代Online その他 大航海時代ツール配布所 - バザール価格調査他便利ツールなど DOL-TOOLS万能ツール他ログ解析など 大航海時代Online adventure tools 大航海時代Online用小物置き場 - GVONavi 大航海時代Online関連商品 GAMECITY(コーエー公式) 『大航海時代 Online 〜El Oriente〜』(PS3) 2009年12月15日発売 拡張パック「El Oriente」では、数多くの航海者たちが想い焦がれた東アジアの海域が開放され、その第一章となるChapter1「Zipang」では、タイトルの名が示す通り、“ジパング”の街が登場します。 『大航海時代 Online 〜El Oriente〜』(Win) 2009年12月15日発売 拡張パック「El Oriente」では、数多くの航海者たちが想い焦がれた東アジアの海域が開放され、その第一章となるChapter1「Zipang」では、タイトルの名が示す通り、“ジパング”の街が登場します。 『大航海時代 Online 〜Cruz del Sur〜』(PS3) あの『大航海時代 Online』が"PLAYSTATION 3"でついに登場! 『大航海時代 Online 〜Cruz del Sur〜 トレジャーパック オスマンの栄光』(Win) 数量限定販売 オリジナルアイテムシリアル付きパッケージ『大航海時代 Online 〜Cruz del Sur〜 トレジャーパック オスマンの栄光』が数量限定で発売! 最新の拡張パック第2弾『Cruz del Sur』をすぐに始めていただけるクライアントDVD-ROMのほか、2009年2月17日より開始される『Cruz del Sur』のChapter5「Menace of Ottoman(オスマンの脅威)」にまつわるオリジナル装備が生産できるレシピ帳など、5種類の特典アイテムを入手できるシリアルナンバーが付属します! 『大航海時代 Online 〜Cruz del Sur〜 トレジャーパック インカの秘宝』(Win) 数量限定販売 オリジナルアイテムシリアル付きパッケージ『大航海時代 Online 〜Cruz del Sur〜 トレジャーパック インカの秘宝』が数量限定で発売! 最新の拡張パック第2弾『Cruz del Sur』をすぐに始めていただけるクライアントDVD-ROMのほか、7月23日より開始される『Cruz del Sur』のChapter4"Inca(インカ)"に纏わるアイテムなど、5種類の特典アイテムを入手できるシリアルナンバーが付属します! 大航海時代 Online 〜Cruz del Sur〜 プレイヤーズバイブル「Cruz del Sur」を徹底攻略! 「沈没船」「プライベートファーム」などの新要素も含め、「Cruz del Sur」を徹底攻略!プレイスタイルに合った船を探すためのシップクロスレビュー、プレイ中の疑問に答えるQ Aなど、読み物も充実!さらに、ゲーム中でオリジナルアイテム3点がゲットできるシリアルナンバー付き! 大航海時代 Online La Frontera オフィシャルガイド 06.12.6バージョン データ・スキル編キャラクター育成のノウハウを凝縮!12.6アップデートの「Angkor」に対応。 12.6アップデートの「Angkor」に対応した「La Frontera」初のオフィシャルガイド、いよいよ登場!キャラクター育成のカギを握る、職業&スキルに関するシステムの全貌を解き明かす!さらに交易品や船はもちろん、レシピデータや副官データまで、航海に必須のあらゆるデータを一挙紹介! 大航海時代 Online La Frontera オフィシャルガイド 06.12.6バージョン クエスト・マップ編地図からクエストまで、全世界の情報がこの一冊に!12.6アップデートの「Angkor」に対応。 12.6アップデートの「Angkor」に対応した「La Frontera」初のオフィシャルガイド、いよいよ登場!世界地図のみならず、開拓地まで含めて全港街データを一挙公開!上陸ポイントや地図データ、さらには2,000を超えるクエスト情報もばっちり紹介し、冒険がぐっと楽しく効率的に進められる! 大航海時代 Online プレイヤーズバイブル2ディープな攻略情報と新しい遊び方を提唱するファンブック第2弾! 最新パッチに対応した、ディープな攻略情報と新しい遊び方を提唱するファンブック第2弾!変更されたクエストに対応したツアーガイド風のプレイレポートでプレイヤー独自の航海の仕方を提唱!また、さまざまな装備品をビジュアル面、最新のレシピで紹介するだけでなく、大海戦の遊び方まで一挙公開!さらに、副官、新規追加港などの新システムについても詳細に解説! 大航海時代Online プレイヤーズバイブル「大航海OL」を遊び尽くすやり込み情報が満載! 「大航海時代 Online」のやり込み攻略情報とオモシロ読み物満載のファンブック。2005年10月に実装された新交易品や新レシピの情報、世界潮流・風向きマップなど、攻略に役立つ情報が満載。さらに、冒険を盛り上げてくれるNPC同士の人物相関図や各都市の時代背景を紹介するなど、もっとゲームを楽しむ情報が満載!2005年8月3日に追加実装された3カ国を含め、ゲームでプレイヤーが所属できる6カ国(イスパニア、ポルトガル、イングランド、ヴェネツィア、フランス、ネーデルランド)について、時代背景まで絡めた国・首都の紹介、首都となる街の観光スポットやイベントに登場するキャラクターたちの人物相関図など、詳しく紹介。また、効果的なスキルアップ術を徹底解析。さらに、ランク15にしたときのスキルの効果等、通常のプレイではなかなか見ることのできないやり込み情報を含めて、覚えたスキルの活用法を解説します。2005年10月に追加実装された新交易品や新スキルの情報も、もちろん掲載! 大航海時代 Online オフィシャルガイド 05.5.25バージョンデータ・スキル世界をかけめぐるMMORPGの公式攻略本が2分冊で登場! 世界の海を舞台にかけめぐるMMORPGの完全攻略本がついに登場!上巻ではキャラクターの効率的な育成方法と交易品をはじめとするアイテムデータを一挙公開! 大航海時代 Online オフィシャルガイド 05.5.25バージョンクエスト・マップ編世界をかけめぐるMMORPGの公式攻略本が2分冊で登場! 大人気MMORPGの公式攻略本がついに登場! 下巻ではゲームプレイのキモとなるクエストデータを一挙公開!さらに、クエスト実行時はもちろん、航海時には必須となる世界マップも掲載! 大航海時代onlineワールドガイド七つの海を舞台に世界を駆けめぐるMMORPG『大航海時代Online』の世界観とその楽しさを紹介する設定資料集。 ゲームに登場する船や都市などの美麗なグラフィックや、壮大な世界観をビジュアル満載で紹介。また、これからゲームを始めるプレイヤーに役立つ情報も掲載。 大航海時代onlineスターターパック(〜La Frontera〜) 販売終了 『大航海時代 Online』のパッケージ版です。 スターターパックでは、14日間の無料体験期間はもちろん、アップグレードチケットとプレイチケット30日間があらかじめついているシリアルナンバーが入っています。アップグレードチケットをご購入いただくことなく正式サービス(製品版)をスタートする 事ができ、 さらにプレイチケット30日間もついて大変お得なパックとなっております。 この機会にぜひ海を翔けるロマンを"体験"してください。 大航海時代onlineトライアルパック 販売終了 『大航海時代 Online』のパッケージ版です。 トライアルパックでは、14日間の無料体験期間終了後、アップグレードチケットをご購入していただく事により、正式サービス(製品版)をスタートする事ができます。この機会にぜひ海を翔けるロマンを"体験"してください。 ソースネクスト はじめての大航海時代オンライン 豪華特典同梱 航海者養成学校の制服に合う初心者サポートアイテム2点 30日間プレイチケット
https://w.atwiki.jp/naobe/pages/108.html
言語に戻る バージョン VB6.0 コメント 行先頭にシングルコーテーション 型 型 説明 Boolean 真偽値。True or False String 文字列 Integer 整数(負数あり)。16ビット 制御構造 判定 If 条件式 then ステートメント ElseIf 条件式 then ステートメント Else ステートメント End If ループ Do [while 条件式] [exit Do] #ループから抜ける Loop whileがない場合は無限ループ クラス 不可能なこと 継承 オーバーロード 作成方法 コーディング例 文字列 文字列の連結 文字列1 文字列2 FORM テキストボックス 【テキストボックスから文字列を取得する】 ボタン 【フォームを閉じる】 Unload me 正規表現 使用方法は以下を参照 正規表現マッチ判定 @param patn 正規表現パターン @param target 対象文字列 Private Function regmatch(patn As String, target As String) As Boolean Dim re Set re = CreateObject("VBScript.RegExp") re.Pattern = patn regmatch = re.Test(target) End Function プログラミング例 DB2のselect結果を取得 【select結果】 - の数が、列の桁数になる。 STORENUM STARTDATE NAME OPSTATE ---------- ---------- -------------------- ----------- st001 2011-06-01 store1 0 st001 2011-06-02 store1 1 st001 2011-06-03 store1 1 st002 2011-06-02 store2 0 st002 2011-06-03 store2 1 st002 2011-06-04 store2 1 st003 2011-06-03 store3 0 st003 2011-06-04 store3 1 st003 2011-06-05 store3 1 【シートプログラム】 Option Explicit 出力開始セル Private startCell As Range データ開始セル Private dataCell As Range SQLファイルパス Private sqlFilePath As String 支店EXCELディレクトリ(フルパス) Private branchDir As String 支店加盟店番号セル Private branchShopNumCell As String 支店加盟店番号セル Private branchShopNameCell As String 列リスト Private colList As Collection 列サイズ Private colSize As Integer ヘッダ Private header As String データ行到達フラグ Private isData As Boolean 終了フラグ Private isEnd As Boolean 加盟店マップ(キー:加盟店番号、値:加盟店名) Private shopMap As Dictionary Private Sub テスト_Click() Dim result As Boolean result = regmatch("\d{4}-\d{2}-\d{2}-\d{2}\.\d{2}\.\d{2}\.\d{6}", "2013-04-23-10.00.00.000002") MsgBox ("結果 " CStr(result)) End Sub 支店ディレクトリから支店excelファイルを読み込み、加盟店番号と加盟店名のマップを作成する SQLダンプファイルを読み込み保管する Private Sub 実行_Click() Dim i As Integer 変数初期化 isData = False isEnd = False Set startCell = Worksheets(SHEET_NAME).Range(START_CELL) Set dataCell = startCell.Offset(1, 0) Set shopMap = New Dictionary Set colList = New Collection 設定読み込み Call getConfig 支店EXCELファイルを読み込み、加盟店番号-加盟店名マップを作成 Call createShopMap SQL読み込み Call readSQL End Sub 設定値読み込み Private Sub getConfig() sqlFilePath = Range(SQL_FILE_PATH).Value branchDir = Range(BRANCH_EXCELL_DIR).Value branchShopNumCell = Range(BRANCH_SHOP_NUM).Value branchShopNameCell = Range(BRANCH_SHOP_NAME).Value End Sub 支店EXCELファイルを読み込み、加盟店マップ作成 Private Sub createShopMap() Dim f, fs, folder, fc Dim wb As Workbook Dim fileName, shopNum, shopName As String Set fs = CreateObject("Scripting.FileSystemObject") 支店EXCELファイルフォルダ Set folder = fs.GetFolder(branchDir) フォルダ内のファイル Set fc = folder.Files For Each f In fc ワークブックを開く fileName = branchDir "\" f.name Debug.Print ("fileName " fileName) Set wb = Workbooks.Open(fileName =fileName) 加盟店番号、加盟店名をマップに登録 shopNum = wb.Sheets(1).Range(branchShopNumCell).Value shopName = wb.Sheets(1).Range(branchShopNameCell).Value Debug.Print "shopNum " shopNum " shopName " shopName shopMap.Add shopNum, shopName ワークブックを閉じる wb.Close Next 加盟店マップダンプ Call dumpMap("加盟店番号", "加盟店名", shopMap) Debug.Print "" End Sub 加盟店マップダンプ @param keyName キー名 @param valueName 値名 @param map ダンプするマップ Private Sub dumpMap(keyName As String, valueName As String, map As Dictionary) Dim keyAry Dim i As Integer Dim val As String keyAry = map.keys For i = 0 To map.Count - 1 val = map.Item(keyAry(i)) Debug.Print keyName " " keyAry(i) ", " valueName " " val Next End Sub SQL select結果をシートにロードする Public Sub readSQL() Dim fileNo As Integer Dim buf As String Dim ret As Integer fileNo = FreeFile Open sqlFilePath For Input As #fileNo Do Until EOF(fileNo) Line Input #fileNo, buf Call loadToSheet(buf) Loop Close #fileNo End Sub 行をシートに登録する @paarm line 行 @param sheetName シート名 Public Sub loadToSheet(line As String) 行マップ(キー:カラム名、値:カラム値) Dim lineMap As Dictionary Dim top As String If isData = False Then ヘッダ行処理 空行は終了 If Len(line) = 0 Then Exit Sub End If top = Mid(line, 1, 1) ---行まで進む If top = "-" Then isData = True 列サイズ取得 Call extractColSize(line) ヘッダ行から列名取得 Call getColumnName Else ---行まで、ヘッダ行保管 header = line End If Else データ行処理 空行になったら終了 If Len(line) = 0 Then isEnd = True Exit Sub End If 終了なら何もしない If isEnd = True Then Exit Sub End If データ行 Call writeData(line) Set lineMap = getLineMap(line) 行マップダンプ Call dumpMap("名前", "値", lineMap) Debug.Print "" End If End Sub 列サイズ抽出 @param line ---の行 Sub extractColSize(line As String) Dim pos, prevPos, start As Integer start = 0 prevPos = 1 pos = -1 行からブランクを探す Do While True Dim col As ColumnClass Set col = New ColumnClass pos = InStr(prevPos, line, " ") If pos = 0 Then 最後の列の列サイズを保管 col.size = Len(line) - prevPos + 1 colList.Add col Exit Do Else 列サイズを保管 col.size = pos - prevPos colList.Add col prevPos = pos + 1 End If Loop End Sub ヘッダから列名を取得する Private Sub getColumnName() Dim i, pos As Integer Dim col As ColumnClass pos = 1 For i = 1 To colList.Count colAry(i).name = Trim(Mid(header, pos, colAry(i).size)) Set col = colList.Item(i) col.name = Trim(Mid(header, pos, col.size)) pos = pos + col.size + 1 Next End Sub データ行をシートに書き込む @param line データ行 Private Function getLineMap(line As String) As Dictionary Dim pos, i As Integer Dim lineMap As Dictionary Dim col As ColumnClass Set lineMap = New Dictionary pos = 1 カラム位置 データ出力 For i = 1 To colList.Count Set col = colList.Item(i) データ行から値を取得してマップに登録 lineMap.Add col.name, Trim(Mid(line, pos, col.size)) 次のカラム位置を計算 pos = pos + col.size + 1 Next Set getLineMap = lineMap End Function データ行をシートに書き込む @param line データ行 Private Sub writeData(line As String) Dim pos, i As Integer 開始セル Dim tmpCell As Range Set tmpCell = dataCell pos = 1 データ出力 For i = 0 To colSize 表示形式を文字列に設定 tmpCell.NumberFormatLocal = "@" ファイルの行から値を取得してセルに設定 tmpCell.Value = Trim(Mid(line, pos, colAry(i).size)) 1列右へ移動 Set tmpCell = tmpCell.Offset(0, 1) pos = pos + colAry(i).size + 1 Next dataCellを1行下へ移動 Set dataCell = dataCell.Offset(1, 0) End Sub 正規表現マッチ判定 @param patn 正規表現パターン @param target 対象文字列 Private Function regmatch(patn As String, target As String) As Boolean Dim re Set re = CreateObject("VBScript.RegExp") re.Pattern = patn regmatch = re.Test(target) End Function 【標準モジュール】 Option Explicit 出力シート名 Public Const SHEET_NAME As String = "Sheet2" 最大列数 Public Const MAXCOL As Integer = 50 出力開始設定セル Public Const START_CELL As String = "B2" SQLダンプファイル(フルパス)設定セル Public Const SQL_FILE_PATH As String = "C4" 支店EXCELディレクトリ(フルパス)設定セル Public Const BRANCH_EXCELL_DIR As String = "C5" 支店加盟店番号セル設定セル Public Const BRANCH_SHOP_NUM As String = "C7" 支店加盟店番号セル設定セル Public Const BRANCH_SHOP_NAME As String = "C8" 【クラスモジュール ColumnClass】 Option Explicit Public size As Integer サイズ Public name As String 名前 ファイル書き込み Private Sub FileWrite_Click() 変数宣言 Dim fileName As String 書き込みファイル名 Dim rows As Variant Dim row As Integer Dim fileNumber As Integer Dim fileExist As String fileNumber = FreeFile ファイル名をセルから読み込み fileName = Range("C13").Value 書き込む文字列を取得 rows = Range("C18", "C21") ファイルがあれば削除 fileExist = Dir(fileName) If fileExist "" Then Kill fileName End If ファイル書き込み Open fileName For Append As #fileNumber For row = 1 To 4 Print #fileNumber, rows(row, 1) Next Close #fileNumber MsgBox "ファイル " fileName "に文章を書き込みました" End Sub 指定したセルから値を取得してSQL作成 【標準モジュール】 Option Explicit 検索開始行 Const START_ROW = 4 検索終了行 Const END_ROW = 10 NAMEID列 Const NAMEID_COL = 2 Sub SQL作成_Click() NAMEID Dim nameIdCell As Range 行 Dim row As Integer ID Dim id As Integer 文字列ID Dim sid As String 初期値を設定 row = START_ROW id = 1 最終行まで、SQL文作成 Do While row = END_ROW Set nameIdCell = Cells(row, NAMEID_COL) id を3桁で0埋め sid = PadLeft(CStr(id), 3, "0") SQL文出力 Debug.Print "insert into INOUTDETAIL values( D20120304" sid " , その他 , " nameIdCell.Value " );" row = row + 1 id = id + 1 Loop Debug.Print "commit work;" End Sub ------------------------------------------------------------------------------- 指定の文字数になるまで先頭を文字で埋めます。 @Param stTarget 処理対象となる文字列。 @Param iLength 文字の長さ。 @Param [chOne] 埋める文字。(省略時は半角スペース) @Return 先頭を指定の文字で iLength の長さまで埋められた文字列。 ------------------------------------------------------------------------------- Public Function PadLeft(ByVal stTarget As String, ByVal iLength As Integer, Optional ByVal chOne A s String = " ") As String Do While (Len(stTarget) iLength) stTarget = chOne stTarget Loop PadLeft = Right$(stTarget, iLength) End Function 英単語帳に単語登録機能を追加する 【フォームモジュール】 Option Explicit 検索開始セル Const START_CELL = "C5" 左端列 Const START_COLUMN = "B" 右端列 Const END_COLUMN = "F" 品詞マップ Dim hinshiMap As Object フォーム初期処理 Private Sub UserForm_Initialize() 品詞初期化 Dim hinshiNameAry() As String Dim hinshiValAry() As String hinshiNameAry = Split(MEISI "," MEISI_DOUSI "," DOUSI "," KEIYOUSI "," HUKUSI "," ZENTISI, ",") hinshiValAry = Split(MEISI_VAL " " MEISI_DOUSI_VAL " " DOUSI_VAL " " KEIYOUSI_VAL " " HUKUSI_VAL _ " " ZENTISI_VAL, " ") コンボボックス初期化 With hinshi Dim i As Integer For i = 0 To HINSHI_CNT - 1 .AddItem hinshiNameAry(i) Next i .Text = .List(0) End With 品詞マップに登録 Set hinshiMap = CreateObject("Scripting.Dictionary") With hinshiMap For i = 0 To HINSHI_CNT - 1 .Add hinshiNameAry(i), hinshiValAry(i) Next i End With End Sub 追加ボタン押下処理 Private Sub AddButton_Click() Dim 単語 As String Dim 品詞 As String Dim 訳 As String 単語 = word.Text 品詞 = hinshiMap.Item(hinshi.Text) 訳 = translation.Text Debug.Print "追加ボタンがクリックされました。 単語:" 単語 " 品詞 " 品詞 " 訳:" + 訳 シートへ登録 追加する位置のセルを求める Dim targetCell As Range Dim tmpCell As Range Set targetCell = findTargetCell(単語) If targetCell Is Nothing Then MsgBox prompt ="既に登録されています", Buttons =vbCritical Exit Sub End If Debug.Print "追加するセル位置:" targetCell.Address 行を追加 targetCell.EntireRow.Insert 先頭に追加か否かで、Noをコピーする行を変える If targetCell.Address = Range(START_CELL).Offset(1, 0).Address Then 先頭に追加 Noをコピー Set tmpCell = targetCell.Offset(0, -1) tmpCell.Copy Destination =tmpCell.Offset(-1, 0) 形式をコピー Dim rangeStr As String rangeStr = getRangeStr(tmpCell.row) Range(rangeStr).Copy rangeStr = getRangeStr(tmpCell.row - 1) Range(rangeStr).PasteSpecial Paste =xlPasteFormats Else 2行上(No)をコピー Set tmpCell = targetCell.Offset(-2, -1) tmpCell.Copy Destination =tmpCell.Offset(1, 0) End If 空行に移動 Set targetCell = targetCell.Offset(-1, 0) 入力値をセット targetCell.Value = 単語 targetCell.Offset(0, 1).Value = 品詞 targetCell.Offset(0, 2).Value = 訳 日付をセット targetCell.Offset(0, 3).NumberFormatLocal = "yyyy/m/d" targetCell.Offset(0, 3).Value = Date End Sub 範囲文字を取得する 引数 row 行 戻り値 範囲文字列(ex. "A1 C3") Private Function getRangeStr(row As Long) getRangeStr = START_COLUMN CStr(row) " " END_COLUMN CStr(row) End Function キャンセルボタン押下処理 Private Sub CancelButton_Click() 閉じる Unload Me End Sub 追加するセル位置を求める 引数 wordVal 単語 戻り値 追加するセル。同じ単語があればNothing Private Function findTargetCell(wordVal As String) 単語比較結果 Dim compResult As Integer 比較対象セル Dim targetCell As Range Set targetCell = Range(START_CELL) 検索 Dim isSameWord As Boolean isSameWord = False Do 最終行チェック If targetCell.Value = Empty Then Exit Do End If compResult = StrComp(targetCell.Value, wordVal, vbTextCompare) セルの文字列が追加単語より後なら終了 If compResult = 1 Then 同じ単語か確認 If targetCell.Offset(-1, 0).Value = wordVal Then Set targetCell = Nothing End If Exit Do End If 1行下に移動 Set targetCell = targetCell.Offset(1, 0) Loop 戻り値 Set findTargetCell = targetCell End Function セル形式を変換する 引数 rangeName $A$1形式のセル名 戻り値 A1形式のセル名 Private Function cnvRangeForm(rangeName As String) $を削除 cnvRangeForm = Replace(rangeName, "$", "") End Function 【シートモジュール】 Option Explicit Private Sub CommandButton1_Click() UserForm1.Show vbModal End Sub 【標準モジュール】 Option Explicit 品詞名 Public Const MEISI = "名詞" Public Const DOUSI = "動詞" Public Const MEISI_DOUSI = "名詞+動詞" Public Const KEIYOUSI = "形容詞" Public Const HUKUSI = "副詞" Public Const ZENTISI = "前置詞" 品詞 Public Const MEISI_VAL = "n" Public Const DOUSI_VAL = "v" Public Const MEISI_DOUSI_VAL = "n,v" Public Const KEIYOUSI_VAL = "a" Public Const HUKUSI_VAL = "adv" Public Const ZENTISI_VAL = "prep" 品詞の数 Public Const HINSHI_CNT = 6
https://w.atwiki.jp/arma3/pages/35.html
Arma3Link集 Armaというゲームはどうしても敷居が高く感じてしまうもの。 そういうユーザーさんの助けとなればと思い、有用と思われるリンクを張っていきます。 追記や削除ができない場合はコメント欄に記入していただければ対応します。 ホームページ名 リンク先のコンテンツの説明 リンク 戦車好きメガネの王国 Armaシリーズ他多くのミリタリー系のゲームをやっていらっしゃるともやんさんがやっていらっしゃるサイトです。特にここのediting関係の記事にお世話になった方は多いのではないでしょうか。 http //ameblo.jp/tomosergeant/theme-10068177112.html Arma3マルチプレイ募集掲示板(仮名) ARMA3のマルチプレイが個人個人の間でも楽しめるように開設しました。「Arma3のマルチプレイがやりたい!!でもグループに入ったりするのはちょっと・・・」という方、こちらでメンバーを募集してはいかがでしょう? http //jbbs.livedoor.jp/game/56493/ ArmA日本語フォーラム(非公式) 2ch 「ArmA3」+「ArmA2」+「ArmA」+「OFP」Vol.205スレの646さんが作ってくれた日本語フォーラムです。 http //armajapan.forums-free.com/ 弱者の日記^^ 日本語のアドオンとMOD紹介サイト。 http //classicarma.blogspot.jp/ Macchky@Blog for various Gadget ! ARMA3 Wasteland 鯖を Ubuntu Server で建ててみた http //blog.macchky.net/?p=2143 2ch現行スレ http //sirtuin.me/index.php?word=arma EPOCH mod (ARMAⅢ) 日本語Wik ArmA3のmod「EPOCH」の情報に特化したWikiです。 http //a3ep.wiki.nokico.club/ ARMA3 技術フォーラム エディティング等々、日本人同士で情報交換し合えるサイトとして建ててみました。お気軽にご利用下さい。 http //a3tech.macchky.net/
https://w.atwiki.jp/sengoku4/pages/57.html
概要 基本的仕様 注意点 概要 本作におけるオンライン協力プレイについて。 基本的仕様 本作は、基本的にメインとパートナーの武将二人を固定で使用する方式であり、 通常の2Pプレイでは1Pがメイン・2Pがパートナーを固定で使用する。 この2P側をオンラインで使用可能になるというのが本作の通信機能である。 協力相手との接続は、参加・募集・招待と従来通りの三種類のやり方がある。 それ故に、協力プレイ中は切り替えができないのに注意。 注意点 使用可能なのは、自分の側の武将・データ各種。 回収したドロップ類はすべて回収した側のみ戦闘終了後に処分可能。
https://w.atwiki.jp/sengokumusou4-2/pages/206.html
概要 基本的仕様 注意点 概要 本作におけるオンライン協力プレイについて。 基本的仕様 本作は、基本的にメインとパートナーの武将二人を固定で使用する方式であり、 通常の2Pプレイでは1Pがメイン・2Pがパートナーを固定で使用する。 この2P側をオンラインで使用可能になるというのが本作の通信機能である。 協力相手との接続は、参加・募集・招待と従来通りの三種類のやり方がある。 それ故に、協力プレイ中は切り替えができないのに注意。 注意点 使用可能なのは、自分の側の武将・データ各種。 回収したドロップ類はすべて回収した側のみ戦闘終了後に処分可能。
https://w.atwiki.jp/12568945/pages/16.html
前に出ます 開幕 全階級共通 前衛やります 試合中盤以降 少尉 特にロックとか集める気はないけど決して食らってはならぬ 中尉 前進して踊ります 大尉 敵のロックを集めます。私の後ろへ 少佐 ロックを取り、あわよくばダメを取ってきます 中佐 俺が全部やるから端でシャゲダンしてろ 覚醒あります 少尉、中尉 覚醒あります。よくわかりませんが報告しました 大尉、少佐 体力は危険域ですが、追われても覚醒を吐いて逃げれます。心配しないで下さいor覚醒を使って攻めます。援護を頼みます 中佐 光って全員落とすから端でシャゲダンしてろ 練習中です 少尉、中尉、大尉 二人分働いてください 少佐 練習中なのでそれほど働けませんが、一緒に頑張りましょう 中佐 メッキです (強力な武装)チャージ中 全階級共通 溜まってから動きたいので引き気味でお願いします シールドビット送ります 全階級共通 攻めを開始して下さい、途中でビットが展開します
https://w.atwiki.jp/dndrdcd/pages/48.html
【VBA】 基本情報 種族: ハーフエルフ(ハーフドラゴン) クラス: ウィザード(ブレードシンガー) 背景: 出身: 属性: 中立・善 人物像 人格的特徴: ひどくロマンチックで、いつも“たった一人の特別なひと”を探している。 完璧なものにしか満足できない。 尊ぶもの: 誠実。芸術は魂を映す。それは内面から出て、私たちが本当は何者であるかを明かす。(属性問わず) 関わり深いもの: 私は古い物語のひとりの英雄を理想としており、おのれの行為をその人物と比べて自ら省みる。 弱み: 美男/美女にとことん弱い。 設定 メモ 名前の由来はプログラム言語のVBAから。
https://w.atwiki.jp/zero-flora/pages/111.html
ひとこと通信アーカイブス その10 「ひとこと通信」での過去のやり取りを保存するページです。 商会HPにだけ存在していたモウですが、レースのカメラマンとして復帰いたしました。例によって操作方法をすっかり忘れてますので、のんびりやらせてくださいw -- モウ (2014-12-13 16 41 58) 本日 モウさん、スナイデルさん、秋野夜美鈴さんが DOL復帰! なんてうれしい日なのでしょう クルクル踊りだすにゃー -- マリア (2014-12-13 15 50 55) 私が思ってた以上にご心配をかけていたようで、すみません。本日、復帰しました。ただ、ゼローラへの復帰は見送らせてもらいました。商会は離れますが、仲良くしてください。よろしくねー -- スナ (2014-12-13 14 05 23) フフフ,,,家のパソコンが新しくなった♪ -- モウ (2014-12-11 21 57 45) バルト海の戦闘海域を海事21の3rdキャラでしてみた。船は商大ガレ、スキルは砲術2・弾道1・水平1で90分くらいで200隻完了。結果→クエスト経験39000 お金8M 名声13000 おいしいねこれw リガの北西辺りを東西に移動して狩るだけの作業です。クエスト報告の時お守りや世界あればさらにいい。 -- ゲホバ (2014-12-06 13 32 53) ブログ始めましたwどのくらいの頻度で更新するか分かりませんが、良かったら見てやってくださいm(__)m http //ameblo.jp/triestina-farlance/ -- トリ (2014-12-06 12 44 54) おおー やっと復帰できそうだあー -- しのぶ (2014-12-06 01 13 16) おお しのぶちゃん^^フローラ確か枠ありますよ^^ -- トリ (2014-12-06 00 52 24) 皆様 突然の長期離脱申し訳ない 復帰しますが商会の枠ありますか? -- しのぶ (2014-12-05 16 39 20) リグリア海のをやりましたが(マルセイユ)、ジェノヴァのはティレニア海なのでバルバリアさんたちでジェノスク代替できるかも。 -- skywalker (2014-12-04 09 34 29) Eサバキャラでやりました海域戦闘。バルシャばかり4隻拿捕して報酬5万、経験250と名声180(半減前)ですたい。結果によって経験値が変動するかは不明。 -- skywalker (2014-12-04 09 31 50) 私、キッツィンジャーめはアーゴット商会に移籍となりました。みなさまよろしくです~ -- キッツィンジャー (2014-11-26 17 40 47) 最近、全然時間が取れなくて申し訳ない。いまもちょっとの隙に書き込んでいる次第。時間が出来たら、すぐにでもまた活発に更新作業します>< -- モウ (2014-11-24 10 15 28) ネデの愛されキャラ「ろろごん」君がついにフラの商会へ入会してた。義理と人情の狭間でなやんでたもようで。アプデ前向きに考え中ですと -- イレーネ (2014-11-23 15 36 37) 海戦部、スナさん不在だけども活用しなくては -- キッツィンジャー (2014-11-20 18 32 38) 土曜は、良くて大型からならで -- kenshin (2014-11-20 17 43 38) 土曜でチケット切れちゃいました。来週には買いますのでご用の方は残念でした。 -- イリット (2014-11-17 08 43 25) フランスがネデに宣戦布告 大海戦は21,22、23日なりそう 金星探索隊は24日しかないかあ -- リサ (2014-11-12 16 08 02) 大型フリゲート(Lv25、重量砲撃・修理支援)一隻貸出中です。ご希望の方はキッツィンジャーまで -- skywalker (2014-11-06 17 48 38) スナイデルさんが復帰するまでに 大海戦参加できるメンバー育成しなきゃ -- リサ (2014-11-06 15 49 20) 掲示板に、情報交換板立てておきましたb何かの足しにどうぞ -- キッツ (2014-11-03 19 02 49) オールゼロとフローラの共同茶室たちあげてみました。 -- リサ (2014-11-03 17 57 43) ゲホバ金星探索隊の日程いつがいいかな? 開錠スキルあげの地図まわしもやりましょか -- マリア (2014-11-02 15 26 03) スナイデルさんが長期離脱するということに。次のオールゼロ副会長お願いしようとおもってたのだけど、人事構想見直さねば -- リサ (2014-10-31 12 27 34) 添付ファイルの右が切れてしまう( _ )! -- 七 (2014-10-27 01 59 28) クロノス アムス商会13ほどなので、設立に支障はないと思います。うちのアライアンス代表して一個立てとくぐらいがちょうどいい感じですかね~ 誰か代表者でもいればw -- キッツ (2014-10-26 09 58 55) KEN_Gさん、鋳造カンストおめでとう(*・ω・*)ノ代わりに入力させてもらいました~ -- ひなた (2014-10-25 01 52 22) 来年3キャラ目解放 クロノス鯖から ATS鯖の商会へって流れは考えとります。それまでどうしましょうかねえ -- ヨハンナ (2014-10-23 14 39 32) クロノスで、商会作っとけば3キャラ目追加後の布石になると思うのですがどうでしょうか。クロノスアムスは商会少なくて放浪してる人も多いはず -- キッツ (2014-10-23 09 27 41) モウコラムで紹介した100年前の東京のカラー映像番組が今晩深夜24:40から再放送されます。興味のある方は録画しておくといいかもです。 -- モウ (2014-10-22 22 56 09) メイン商会から、出向出したらどうですかね、人数解消にはいいと思いますが -- キッツ (2014-10-21 19 23 44) 七味さんのマイスター年鑑の書き込みよろしく -- マリア (2014-10-21 16 27 34) アーゴット商会が じりじり減ってる>< こっちもなんとか建て直したいけども -- ヨハンナ (2014-10-21 15 21 48) セブンさん、おかえりなさい♪ セブンさんが不在の間、商会HPのパスがわからなかったので勝手に移設したりしてました。このページのログインIDとパスは基本的に全員共有(のはず)なので、どなたかから教えてもらってください^^ -- モウ (2014-10-19 11 42 02) 1年半ぶりに復帰しました元フローラメンバーです。造船、縫製、鋳造カンストしてますが現状の生産状況わかりませんwクロノス鯖でエララというキャラでリハビリ中です(*^^) -- セブン・オブ・ナイン (2014-10-19 09 50 47)
https://w.atwiki.jp/testlink/pages/119.html
TestLinkのテーマのギャラリーです。 TestLinkのテーマの変更方法はTipsをご参照ください。 作品を募集しています。 投稿の際は、TestLink日本語版ユーザーメーリングリストにお知らせください。 Trac風テーマ 作者 tosikawa themeファイル testlink_custized_teme_toshi.zip